home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / avmNfax1_33.lha / avmsuite / tozyxel612.rexx < prev   
OS/2 REXX Batch file  |  1994-05-15  |  862b  |  31 lines
  1. /* convert old zyxel files into new files */
  2.  
  3. say "This script converts old zyxel files so that they're usable on 6.12 roms."
  4. say 'You should make a backup of your old voice files first.  Have you done this? (y/n)'
  5. parse upper pull answer
  6. if answer = 'Y' then do
  7.  
  8.   /* needed for some of the functions we use */
  9.   call addlib("rexxsupport.library", 0, -30, 0)
  10.  
  11.   /* change directory to avm:voices */
  12.   call pragma('d', 'avm:voices')
  13.  
  14.   /* get all the files there */
  15.   files = showdir('', 'f')
  16.  
  17.   numfiles = words(files)
  18.  
  19.   do i = 1 to numfiles
  20.     filename = word(files, i)
  21.     address command 'setenv AVMZYXEL612 NO'
  22.     say 'Converting' filename
  23.     address command 'avm:adpcm2iff' filename 'ram:temptozyx.iff'
  24.     address command 'setenv AVMZYXEL612 YES'
  25.     address command 'avm:iff2adpcm' 'ram:temptozyx.iff' 'ADPCM2' 'avm:voices/' || filename
  26.   end
  27. end
  28.  
  29.  
  30.  
  31.